From: Richard M. Stallman Date: Fri, 12 Mar 1993 12:04:55 +0000 (+0000) Subject: (query-replace-map): New keymap. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96904 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=43ab8ca40662f6cc981c39901ec563ef422a6a64;p=emacs.git (query-replace-map): New keymap. (perform-replace): Use query-replace-map. (query-replace, query-replace-regexp, map-query-replace-regexp): (replace-string, replace-regexp): Don't print `done' if unread chars. --- diff --git a/lisp/replace.el b/lisp/replace.el index 3f730ec3f2f..3c195224ad9 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -463,7 +463,7 @@ which will run faster and do exactly what you probably want." (replace-match next-replacement nocasify literal) (setq replace-count (1+ replace-count))) (undo-boundary) - (let (done replaced key) + (let (done replaced key def) ;; Loop reading commands until one of them sets done, ;; which means it has finished handling this occurrence. (while (not done)